home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 6-Pak - Disc 3
/
Windows 6-Pak (InfoMagic) (Disc 3) (1999).ISO
/
Web-Server-Components
/
aexec15i.zip
/
activeexec.asp
next >
Wrap
Text File
|
1998-09-21
|
426b
|
16 lines
<%@ LANGUAGE="VBSCRIPT" %>
<%
Set proc = Server.CreateObject("ActiveExec.Process")
CommandLine = "C:\WINNT\System32\PING.EXE www.activitysoft.com"
proc.Execute CommandLine
Response.Write "Program " & CommandLine & " executed with return code " & proc.ReturnCode & "<BR>"
Response.Write "Output is:"
Response.Write "<BLOCKQUOTE><PRE>"
Response.Write proc.OutputStream
Response.Write "</PRE></BLOCKQUOTE>"
%>